library(ggplot2)

# Laden des Iris-Datensatzes
data(iris)

# Deskriptive Statistik
summary(iris)

# Histogramme fr die Lnge und Breite der Bltenbltter, nach Art gefrbt
ggplot(iris, aes(x = Sepal.Length, fill = Species)) +
  geom_histogram(binwidth = 0.2, position = "identity", alpha = 0.6) +
  facet_grid(. ~ Species) +
  labs(x = "Lnge der Bltenbltter", y = "Hufigkeit", fill = "Art") +
  ggtitle("Histogramme der Lnge der Bltenbltter nach Art")

ggplot(iris, aes(x = Sepal.Width, fill = Species)) +
  geom_histogram(binwidth = 0.2, position = "identity", alpha = 0.6) +
  facet_grid(. ~ Species) +
  labs(x = "Breite der Bltenbltter", y = "Hufigkeit", fill = "Art") +
  ggtitle("Histogramme der Breite der Bltenbltter nach Art")

# Boxplots fr die numerischen Variablen, nach Art gefrbt
ggplot(iris, aes(x = Species, y = Sepal.Length, fill = Species)) +
  geom_boxplot() +
  labs(x = "Art", y = "Lnge der Bltenbltter", fill = "Art") +
  ggtitle("Boxplots der Lnge der Bltenbltter nach Art")

ggplot(iris, aes(x = Species, y = Sepal.Width, fill = Species)) +
  geom_boxplot() +
  labs(x = "Art", y = "Breite der Bltenbltter", fill = "Art") +
  ggtitle("Boxplots der Breite der Bltenbltter nach Art")

# Streudiagramme der Lnge gegen die Breite der Bltenbltter, nach Art gefrbt
ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) +
  geom_point() +
  labs(x = "Lnge der Bltenbltter", y = "Breite der Bltenbltter", color = "Art") +
  ggtitle("Streudiagramm: Lnge vs. Breite der Bltenbltter nach Art")

korrelationen <- cor(iris[, 1:4])

# Ausgabe der Korrelationsmatrix
print("Korrelationsmatrix:")
print(korrelationen)

# Schlussfolgerungen
#	Es gibt deutliche Unterschiede zwischen den Iris-Arten in Bezug auf die Lnge und Breite der Bltenbltter und Kelchbltter.
# Das Streudiagramm zeigt, dass die Setosa-Art normalerweise leicht von den anderen beiden Arten zu unterscheiden ist, whrend Versicolor und Virginica sich mehr berlappen.
#	Die Korrelationsanalyse zeigt, dass es eine sehr starke positive Korrelation zwischen der Lnge und Breite der Bltenbltter gibt.
# Ebenso gibt es eine starke positive Korrelation zwischen Lnge von Blten- und Kelchblttern.

